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PP BA AA TT MM MM 00 00 DD 
PP Bh aa TT MM MM 00 00 DD 
PP ha bh TT MM MM 000000 DODDDDDD 
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MODULE PATMOD ( 
) XVARIANT EQL 1 


ADDRESSING _MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 


NT = 'V04-000') = 
BEGIN 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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! * 
'® THIS SOFTWARE BS FURNISHED we A LICENSE AND MAY BE USED AND coriee * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lin AND WITH THE : 
' * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
. ® 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. : 
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DIGITAL ASSUMES NO RESPONSIB 


; IBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH I 


LIT 

S NOT SUPPLIED BY DIGITAL. 
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! FACILITY: PATCH 
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i FUNCTIONAL DESCRIPTION: 
i ABSTRACT: 

i Version: x01.10 
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; RO?76 
>; RO?76 
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SWITCHES LIST (SOURCE); 


EXTERNAL oat TINE 
T$fao_out; 
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! formats a Line and outputs to the terminal 
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Writes a Line to a file 


_COMRAB, 
PAT$GL_FLAGS, 
PATSGL_CONTEXT : BITVECTOR, 
PATS$GB_MOD_PTR: REF VECTOR [ 
PAT$GB_DEF_MOD: VECTOR C, BY 
PAT$SGL_HEAD_LST; 


RAB for output command file 
CLI flags 

Context longword 

Pointer to modes 

Block for modes 

Head of argument List 
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! This macro is probably temporary - see routine PUT_DEFAL 
MACRO 


lee 


BIND 


YES_NO ( VALUE 
CIF VAL 


' 
' 
' 
' 
' 
' 
' 
L 


table holds the valid mode settings and values 
hem. Each entry in the table is four bytes long. 
The entry has four fields, each of them one byte long. 


The keyword field holds the token value that represents the particular 
om BYTE_TOKEN indicates that the mode is BYTE 

! The offset field holds the location of the mode setting in any of 

the mode levels. 

The value field holds the value that represents a particular mode 

to patch in an internal sense 

The name_offset field holds 


BYTE_TOKEN, MODE_LENGTH, BYTE_LENGTH, BYTE_NAME, 
WORD” TOK 0 


5 0 MO 
NOSCOPE_TOKEN, 
GLOBALS~ TOKEN, 


Page | 
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Som dd 


: VECTOR C, BYTE); 


se. 

the byte offset into the mode name table, 
to the ascic string for this mode. 
e for the output command file and appended text. 


is used to reconstruct 


G-NAME, 
BECIMAL_NAME , 


NOINSTRUC_NAME, 


NAME , 
NOSCOPE _NAME, 


Fe fa TE Oe TID si, ill 
14 

Sep-19 4:5 VAX=-11 Bliss-32 V4.0-742 8 
18- ~30071 382 99: 33: 23 DISKSVMSMAS TER: :CPATCH.SRCJPATMOD. B32. 79 3) 


 recepmtettitanencten MODE _GLOBALS, FALSE, NOGLOBAL_NAME, 


SIS 


) : VECTOR C, BYTE]; 


14 


14 


++ 
: FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
PATSINIT_MODES () 
INPUTS: 


GOAL LEVEL 
SOURTE _LEVEL 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 


MEWN OO ONAOUSWN oO 


WANAIwr 


- Highest level to set. 


ODOOGCOOOCCOCOOOOOOOO 


OOWNOAAR WN $0 OBNANE WN OOONAU EWN BO ODNOAUE WN OS ONOP EWN OOO NOU 


MOPUPORPIPOTUNoToTfopororory 


ROUTINE VALUE: 
novalue 
SIDE EFFECTS: 


none 
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H 
1ersep-19be 99:53:40 


GLOBAL ROUTINE PATSINIT_MODES (GOAL_LEVEL, SOURCE_LEVEL) 


VAX-11 B 
DISKSVMS 


: NOVALUE = 


Sets all levels from local level to the goal level specified 
with the mode settings of the source level. 


- Level from which to obtain mode settings. 


The mode settings of the local level to the goal level 
are reset to the mode settings of the source level. 


64 

26 ~SOURCE LEVEL * MODE_LVL_SIZE); 

266 

67 

68 * MODE_LVL 33 

69 LEVEL CMOD 1X]; 

70 LEVEL CMO NGTH); 
71 L vmBOL $}; 
7 L INSTRUCJ; 
7 MP_LEVEL fl}: 

74 LEVEL OPE): 

r P_LEVEL CMODE_GLOBALS); 
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STER: CPATCH.SRCJPATMOD.B32; 


e ss-32 V4.0-742 


VAX=11 BLi 
DISKSVMSMA 


A 
I 
_PATSPLIT,NOWRT ,NOEXE,0 


<5>\octal\<0><0> 
<7>\decimal\ 


E PATMOD 


TITL 
-IDENT \V04-000\ 
-PSECT 


pa19be 19:58:40 


14 
16-Se 
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7. 
<1>\ \<0><0> 


te bk pe te oe 
< 
<3>\_ no\ 


<11>\hexadecimal\ 
<4>\word\< 

<1>\H\ 

<2>\0C\ 

<1>NIN\ 

<3>\NOI\ 

<2>\AS\ 


AA: 
AB: 
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COMR 


AAJ 


Pp 


OF F 
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E 
-EXTRN PATSFAO 


-EXTRN PATSGL 
-EXTRN PATSGL 


TABL 


LONGWORD 
BOOLEAN 
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MODE 
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:40 — DISKSVMSMASTER: CPATCH. SRCJPATMOD.B32; 1 (4) 

PATSGB_DEF_MOD, PATSGL_HEAD_LST 

ACCESS~ CHECK | 

_PATSCODE ,NOWRT,2 | 

001¢ 90000 .ENTRY PATSINIT MODES, Save R2,R3,R4 : 1293 
54 000000006 EF 9E 900¢ MOVAB PATSGB_DEF_M ; 
53 000000006: ‘EF H 000 MOV PAT$GB~ MOD-PTR : 

50 08 A 7 ¢ 9019 MULL3 #7, SOORCE“LE A, RO + 1338 
52 5 4 €1 0001 ADDLS 4. RO, TEMP_LEVEL ; 

5 03 DO 00019 MOVL “i + 1348 
1A 11 Ooic BRB ; 

51 50 Q7 C5 1 1$ MULL R1 + 1341 
63 51 4 €1 000 ADDL3 RA, af, PAT$GB_MOD_PTR : 

51 63 DO 00026 MOVL PAT$GB_MOD_PTR> R1~ + 1342 
61 62 00 00029 MOVL (TEMP_CEVED), (R1) : 

04 Al 04 A2 BO 0002C MOVW  4(TEMP_LEVELS, 4(R1) t 1346 

06 Al 06 A2 90 00031 MOVB  6(TEMPTLEVEL). 6(R1) > 1348! 

50 07 00 DECL =I + 1339 
04 ac 50 D1 00038 2$ CMPL I, GOAL_LEVEL : 
EO 18 0003C¢ BGEG)6=Sts«éa1$ ; 

04 0003E RET + 1350 


; Routine Size: 63 bytes, Routine Base: _PATSCODE + 0000 


K 14 
PATMOD 16-Sep-1984 4:55 VAX-11 Bliss-32 V4.0-742 Page 12 
v04-000 ergeeat38e 99:85:23 Me GhASteRcceAtoN SecaPatmop.e32rte" «55 
; 8 } 1 ! GLOBAL ROUTINE PATSRESET_DEF : NOVALUE = 
; i 1 : 1 144 | 
3 S¢ : 2 : FUNCTIONAL DESCRIPTION: 
> 284 1 8 13 Cancels user set defaults for mode settings and resets all mode 
: 285 ! 2f : } levels to PATCH defaults. 
: 5B? 1359 1 | CALLING SEQUENCE: ; 
: 288 1360 1! : 
: 289 1361 1 | PATSRESET_DEF () ; 
; 290 1 $¢ 1! : 
é 91 136 1 ! INPUTS: . ; 
; 95 1364 1! 3 
; a 139? 74 none : 
> 294 1366 1! 
3 95 1367 1 =! IMPLICIT INPUTS: 
; 296 1368 1! 
; 297 1369 1! The default modes. 
; 298 1370 1! 
3 99 1371 1 ! OUTPUTS: 
; 300 1376 1! 
; 301 1373 1! none 
3 308 1374 1! 
; 1375 1°! IMPLICIT OUTPUTS: 
3: 304 1376 1! 
3 $02 1377 1! none 
3; 306 1378 1! 
: 307 1379 1 ! ROUTINE VALUE: 
: 308 1380 1! 
; 309 1381 1! novalue 
: 310 1386 1! 
$ $13 138 1 ! SIDE EFFECTS: 
3 \¢ 1384 1! 
, ST 1385 1! Resets default values for modes. 
3; 314 1386 1! 
s 315 1387 1 !-- 
3; 316 1388 1 
; $16 Hf 44 BEGIN 
5 318 1391 PAT$GB_MOD_PTR = PAT$GB_DEF_MOD CDEFAULT_MODE * MODE_LVL_SIZEJ; 
; 320 139¢ PAT$GB_MOD-PTR CMODE_RADIXJ~= DEF _MODE_RADIX; 
; 321 139 PATSGB_MOD-PTR CMODE-LENGTH] = DEF _MODE_LENGTH; 
: é 1394 ATSGB-MOD~PTR MODE “SYMBOL S} = TROE; 
; 1395 2 PATSGB-MOD"PTR CMODE-INSTRUC) = FALSE; 
: 324 1396 2 PAT$GB"MOD"PTR [MODE-ASCII) = FALSE; 
: 35 1397 ATSGB_MOD-PTR [MODE-SCOPE) = TRUE; 
3 6 1398 petece MOD PTR CMODE_GLOBALS] = FALSE; 
; 327 1399 ATSINIT_MODES (USER-DEF_MODE, DEFAULT_MODE); 
5 28 1400 END; 

004 00000 -ENTRY PATSRESET_DEF, Save R2 >; 1351 


0 
52 000000006 EF 9E 00002 MOVAB PAT$GB_MOB_PTR, R2 ; 


PAT 
v04- 
000000006 i 
001041 F 
am AD OTD) BF 
AO 
7E 4 
97 AF 2 


; Routine Size: 43 bytes, Routine Base: _PATSCODE + 
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} 
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VAX-11 BL Misseae 4.0-742 e 13 
DISKSVMSMASTER ‘CPATCH. SRCIJPATMOD.B32; P79 (33 
PATSGB_DEF_MOD, PATS$GB_MOD_PTR ; 1391 
n96376, moO, PTR, RO 3 1335 

986 (RO) : 
aes 4(R0) 3; 1396 
oi" ; 1398 
-(SP) 3; 1399 

Ay PATSINIT_MODES § 
: 1400 


M14 
PAT 16-Sep-1984 00:34:55 VA 8 32_V4.0-742 P | 
£7388 99:35:23 I S R: CH.SR 7% 


X-11 Bliss-32 V4. 1 
v04- 14-Sep-1984 DISKSVMSMASTER: CPATCH.SRCJPATMOD.B32; nad 
§ 9 148) } GLOBAL ROUTINE PATSSET_MOD_LST (LEVEL) : NOVALUE = 
: : 1408 1 !44 
: ? VeRe ! FUNCTIONAL DESCRIPTION: 

: 5 1209 ! Sets a List of modes at the specified level. 
: § 1408 1 ! CALLING SEQUENCE: 
3 8 1409 1! 
; 9 1410 1! PATSSET_MOD_LST () 
; 340 1411 1! 
; 341 1316 1 ! INPUTS: 
5 A} 1415 1! 
: 4 1414 1! LEVEL = Level at which to set modes. 
: 344 1415 1! 
; 345 1416 1 ! IMPLICIT INPUTS: 
; 346 1417 1! 
3 «347 1218 4 “The address of the Linked List which holds the switches. 
; 8 yp ! -The global pointers to the current mode levels. 
; 369 1421 1 ! OUTPUTS: 
: $2) 14 ; 1! 
: 26 14 1! none 
’ 1424 1! 
3; 354 1425 1 ! IMPLICIT OUTPUTS: 
s 355 1426 1! 
3 56 1427 1! none 
s 357 1428 1! 
3 $26 1363 1 ! ROUTINE VALUE: 
s 359 1430 1! 
3 $09 1431 1! novalue 
; 361 1336 1! 
3 $08 1433 1 ! SIDE EFFECTS: 
; 1434 1! 
> 364 1435 1! The appropriate modes are set. 
; a2 1436 1! 
: 366 1437 1 !<- 
: 367 1438 1 
3 $08 1439 BEGIN 
3; 36 1440 
; 370 1441 LOCAL 
: 371 1226 NTER; 
. BF 144 PATSSET_MOD_LVL (.LEVEL); 
: 37 1444 2 POINTER"= .PATSGL_HEAD_LST; 
3: 374 1445 dO 
; 375 1446 PATSSET_NEW_MOD ( .LIST_ELEM_EXP1 (.POINTER) ) 
; 376 1447 UNTIL (POINTER = .LIST_ELEM_FLINK (.POINTER)) EQL 0; 
s SFT 1448 1 END; 
0004 000 -ENTRY PATSSET_MOD_LST, Save R2 3 
00000000V_ EF - Of Pe $00 CACLS LEVEL A TSSEr MOD_LVL vitor 
gS 00000000G_ EF BD 000C MOVL PATSGL_HEAD-LST; POINTER : 1444 


; 1401 


e+ 
! The following routines control interpretation and typeout modes. 


Address interpretation and data typeout are controlled by four mode 
pote ings They are "DEFAULT MODE’, which is the mode set by 
nitialization; "USER_DEF MODE’, which is the mode set 
IDE_MODE', which is 
mode set by a single Line yet mode command; and 
or a single variable. 
The mode used depends on the pointer into the block PAT$GB_DEF_MOD. 


At initialization time, the four mode settings are initialized to 


PLL 
SUPP 


proses ses of mode values must move up and ‘ 
locks so that the items displayed or interpreted will have valid 
and timely mode settings for both radix and Length. 


The routines that follow set the mode block pointers to their new 
value and propagate values as necessary. 


The popecet moteur is as follows: 
DEFAULT MODE settings are never changed. 


ney are only changed explici ly in action routines. 
OVERRIDE_MODEsettings are changed to reflect user-set defaults 
n they are the object of th 


are the object of the pointer. 
When the pointer is moving up the block, from LOCAL_MODE toward 
AULT_MODE, no values are propagated 


COO8 NINN SIN NNN A AAA AAAOnnm 


of a command Line is the explicit responsibility of the 
END-OF=COMMAND action routine. 
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the same values. When these values are ae yma mae — 
own throug e fferen 


whe @ pecoter. 
LOCAL _MODE wa ot are copied from OVERRIDE_MODE settings when they 


ropagated. 
Setting of LOCAC_MODE and OVERRIDE. MODE to default settings at the end 


USER_DEF_MODE settings are never changed as a result of pointer jiggling. 
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GLOBAL ROUTINE PATSSET_MOD_LVL (LEVEL) : NOVALU 


+4 
' FUNCTIONAL DESCRIPTION 


See description on page 2. 
CALLING SEQUENCE: 
PATSSET_MOD_LVL () 
INPUTS: 
novalue 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
novalue 
SIDE EFFECTS: 


none 


, te eee 


Sh eh eh ee at eet et el ek ek et ek et et et tat ee et et 
FWAWANWWwiwronoreonspeporonery 
SOON OUEWN—OOONOUSWwr— 


BEGIN 


LOCAL 
TEMP_LEVEL: REF VECTOR C, BYTE]; 


IF (PATSGB_DEF_MOD C.LEVEL * MODE_LVL_SIZE] LEQA .PATSGB_MOD_PTR) OR 


(. LEVEL” EGL~USER_DEF _MODE) 
HEN 


AOAMMAVUIVIVIUIVIVT 
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BEGIN 
PATSGB_MOD_PTR = PATSGB_DEF_MOD [LEVEL * MODE_LVL_SI7E); 


Pe ot ot 


END; 
PATSGL_CONTEXT COVERRIDE] = TRUE; 
SELECT” .LEVEL OF 


SET 
COVERRIDE MODE]: 
TEMP_LEVEL = PATSGB_DEF_MOD CUSER_DEF_MODE * MODE_LVL_SIZE); 
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PATMOD 16-Sep-19 4:55 VAX-11 Bliss-32 V 742 Page 
v04=000 14- ety fi 90: 33: :40 DISKSVMSMASTER: cbaien. SRCIPATMOD.B32;1 i 
: 471 1540 PATSGB_MOD_PTR = PATSGB_DEF_MOD COVERRIDE_MODE * MODE_LVL_SIZEJ; 
; 47 1349 
: 474 154 
: 425 1344 CLOCAL_MODE]: 
: 47 1546 4 IF (.PATS$GB_MOD_PTR EQLA PATSGB_DEF_MOD COVERRIDE_MODE * MODE_LVL_SIZE]) 
> 478 1547 3 THEN 
: 479 1548 4 BEGIN 
: 480 1549 4 TEMP_LEVEL = .PATS$GB_MOD_PTR; 
: 481 1550 4 END 
: 48 1551 3 ELSE 
: 48 1336 i BEGIN 
; 484 1333 4 TEMP. LEVEL = PATSGB_DEF_MOD CUSER_DEF_MODE * MODE_iVL_SIZE]; 
: 486 1555 i PATSGB “MoD “BIR = = PATSGB_DEF_MOD CLOCAL_MODE * MODE_LVL_SIZE]; 
> 487 1556 : END; 
: 488 1557 
: 489 1558 3 
: 490 1559 2 PATS$GB_MOD ~PTR MODE_RADIX] = .TEMP_LEVEL CMODE_RADIX]; 
> 491 1560 2 PAT$GB-MOD"~PTR [MODE~LENGTH] = .TEMP LEVEL CMODE LENGTH); 
: 492 1561 : PAT$GB_MOD_PTR CMODE-SYMBOLS] = .TEMP_LEVEL [MODE_SYMBOLS); 
: 493 136¢ PATSGB_MOD_PTR CMODE-INSTRUC] = .TEMP LEVEL CMODEINSTRUCI; 
3 494 1563 2 PATSGB_MOD_PTR CMODE_ASCII] = .TEMP_LEVEL CMODE_ASC 
: 495 1564 2 PATSGB"MOD-PTR [MODE-SCOPE] = .TEMP~LEVEL CMODE SCOPE]: 
: 496 1565 2 PATSGB"MOD"PTR CMODE-GLOBALS] = .TEMP_LEVEL CMODE_GLOBALS); 
: 497 1566 1 END: 
000c 00000 ENTRY PATSSET MOD_LVL, Save R2,R3 : 
53 000000006 EF 9E 00002 MOVAB PAT B_DEF AOD +7, R3 ; 
52 000000006 EF 9E 00009 MOVAB PA 13¢B- MOD PTR. R2 ; 
51 04 AC DO 00010 OVL LEVEL vs Mee ; 
50 51 07 C5 00014 MULL3 #7 0 ; 
50 F9 A340 9E 00018 MOVAB Pa sca” DEF _MODCROJ, RO ; 
62 50 01 0001D CMPL 0, PAT$GB~MOD_PTR ; 
05 1B 00020 BLEQU "S : 
01 51 01 90022 CMPL RI, #1 : 
04 12 0002 BNEQ ; 
62 50 00 00027 1$: MOVL RO, PATSGB_MOD_PTR : 
04 900 A RET ; 
000000006 EF 04 88 00028 2s: BISB2 #4, PATSGL_CONTEXT+1 : 
02 51 D1 000 : CMPL R11, #2 ; 
07 12 9005 BNEQ ; 
50 63 9E 00037 MOVAB PATS$GB PEF _MOD+7, TEMP_LEVE ; 
6¢ 07 Ad 9E 00054 MOVAB PATSGB-DE F7MOD+14, PATSGB vnOD _PTR : 
0 51 D1 OO03E 3$: CMPL : 
13 *2 00041 BNEG : 
51 07 Ad 9E 0043 MOVAB PATSGB_DEF_MOD+14, R1 : 
51 62 D1 0004 CMPL § PAT$GB"MOD"PTR, Ri : 
0 if 004A BNEQ 4§$ F 
50 62 DO 0004C MOVL § PATSGB_MOD_PTR, TEMP_LEVEL ; 
03 11 OO04F BRB $ ; 
50 63 9E 00051 4$: MOVAB PATS$GB_DEF_MOD+7, TEMP_LEVEL : 
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3; Routine Size: 
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PATMOD 16-Sep-1984 00:34:55 VAX-11 Bliss-32 V4.0-742 Page 20) 

v04-000 er8ee= 138s 93:83:23 DER SunGmaSteasceaton ShcaParmop.B3204%" (Os 

H £38 1367 ! GLOBAL ROUTINE PATSSET_NEW_MOD ( SWITCH_VALUE ): NOVALUE = ; 
; 901 1298 1 !++ : 
; en6 : ty ! ; FUNCTIONAL DESCRIPTION: : 
; 504 1378 1! This routine sets one mode according to the value ; 
s 3? 1575 1! specified. ‘ 
; 506 1208 1! ; 
; 507 1575 1 ! CALLING SEQUENCE: ‘ 
; 508 1328 1! : 
; 509 S77 1! PATSSET_NEW_MOD () ; 
; 510 1578 1! | : 
: STi 1579 1! INPUTS: | : 
; 21§ 1580 1! ‘ 
3; (3t 1581 1! SWITCH_VALUE - Value to set ‘ 
; 514 1286 . 3 ‘ 
3 319 1583 1°! IMPLICIT INPUTS: | ; 
>; 516 1584 1! : 
; aif 138? : The current level of modes being used; held in PAT$GB_MOD_PTR. ‘ 
o . | ° 
; SI 1587 1 ! OUTPUTS: ; 
3; Seo 1588 1! : : 
3 Se 1589 1! No value returned. Modifies the value of the entry in whatever level ‘ 
; 25§ 1590 1! we are in of the mode data structure. | ‘ 
5 Me 1591 1! | ; 
3 Seo 1236 1 ! IMPLICIT OUTPUTS: ; 
3 See 15935 1! : 
s tee 1594 1! none ‘ 
3 6Der 15895 1! ‘ 
; 528 1596 1 | ROUTINE VALUE: : 
; $29 1597 1 | | : 
3; 320 1598 1! novalue ; 
3 So} 1599 1! . 
: 236 1600 1 ! SIDE EFFECTS: : 
3; oo 1601 1! : 
; 534 1606 1! none : 
3 do0 1603 1! : 
; 536 1604 1 !<- | : 
; oo 1605 1 ‘ 
; 538 1988 BEGIN : 
; 539 160 : 
; 540 1608 2 LOCAL : 
$ rad 1999 TABLE_PTR : REF VECTOR C, BYTE); : 
$ 268 1611 TABLE_PTR = MODE_TABLE; : 
3; 544 lol¢ REPEAT : 
: 545 161 GIN : 
: 546 1614 4 IF (.TABLE_PTR CKEYWORD_FIELD] EQL 0) F 
: 547 1615 3 THEN EXITLOOP; . 
; 548 1616 4 IF (. SWITCH_ VALUE EQL .TABLE_PTR CKEYWORD_FIELDJ) F 
; 549 1617 3 THEN ; 
3 350 1618 4 BEGIN 3 
3 331 1619 4 PAT$GB_MOD_PTR fF TAPLE PTR SOF FSET_FIELOI3 = .TABLE_PTR CVALUE_FIELDJ; : 
3 226 is ? IF (.PATSGC_CONTEXTCMOBE_BITJ) : 
; 554 16 4 PATSWRITEFILE(.MODE NAME TBLC.TABLE_PTRCNAME OFF FIELD), : 
3 935 16 , 4 CHSPTR(MODE_NAME_TBCC1J, .TABLE_PTRCNAME_OFF_FIELD]), : 


Routine Base: 


; Routine Size: 


EXITLOOP 
END 


V4.0-742 
(PATCH. SRCIPATMOD. 832: ie 
PATSGL_COMRAB) ; 


TABLE_PTR = TABLE_PTR CO] + MODE_ENTRY_LEN; 


53 00000000" EF 
52 63 
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08 0 
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50 00000000G_ EF 
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0 00000000G_ EF 
000000006 _ EF 
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16-Sep-1984 00:34:55 VAX-11 Bliss-32 V4.0-742 Page 22) 

14- ears ri 99:35:23 DISKSVMSMASTER:CPATCH, SRCJPATMOD B32: 1° 185 
H 6 16 1 ! GLOBAL ROUTINE PATSSHOW_DEFAL : NOVALUE = : 
H 98 16 : 1 lee : 
$ seh 16 2 ! FUNCTIONAL DESCRIPTION: : 
: 569 1 1! Action routine to show default modes. : 
: 570 16 5 1! 3 
; 37) 1638 1 ! CALLING SEQUENCE: : 
; 276 1639 1! 3 
; Of 1640 1! PATSSHOW_DEFAL () : 
; 574 1641 1! 3 
; 575 164¢ 1 | INPUTS: : 
; 576 1645 1! : 
s Srv 1644 1! none ; 
; 578 1645 1! : 
; OF 1646 1 ! IMPLICIT INPUTS: : 
; 580 1647 1! : 
; 581 1648 1! The default modes. ; 
; oB6 1649 1! : 
; 1650 1 ! OUTPUTS: : 
> 584 1651 1! 
; 585 1oa¢ 1! none 
; 586 1653 1! 
; 587 1654 1 ! IMPLICIT OUTPUTS: 
; 588 1655 1! 
; 589 1656 1! none 
; 590 1657 1! 
; 591 1658 1 ! ROUTINE VALUE: | 
; 4 1659 1! 
; 1660 1! novalue 
; 594 1661 1! 
; 595 1006 1 ! SIDE EFFECTS: 
; 596 1663 1! 
s 307 1664 1! The modes are displayed on the output device. 
; we 1665 1! 
; 599 1008 1 f= 
; 600 1667 1 
; 601 1668 2 BEGIN 
; 602 1669 
; 603 1670 LOCAL 
3 eee 24 LEVEL_PTR : REF VECTOR C, BYTE); ' Current mode level 
; 606 1898 LEVEL_PTR = .PATS$SGB_MOD_PTR; | 
3; 607 1674 
; 608 1675 !¢+ 
; 609 1676 ! A temporary fix to hide the symbolic/non-symbolic mode ants tng is here so that 
; 919 \e7? ! user is not confused by the reporting of a mode that has no effect yet. 
3 616 P 1879 $FAO_TT_OUT ( "godeg: LAC gyab Ls, !ACinstruction, !ACascii,!ACscope,!ACglobals, !AC !AC* , 
; 61 P 1680 YES_NO ( .LEVEL_PTR [MODE_SYMBOLS) ), 
: 614 P 1681 YES_NO ( .LEVEL_PTR CMODE_INSTRUC) ), 
3s 615 P 16 § YES_NO ( .LEVEL_PTR CMODE_ASCIIJ ), 
3 616 P 16 YES_NO ( .LEVEL_PTR CMODE_SCOPE) ), 
; a4 4 19 : YES_NO ( .LEVEL_PTR CMODE_GLOBALS) ), 
3; 619 P 16 § (SELECT .LEVEL_PTREC MODE_RADIX J OF 
; 620 P 16 
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\modes: !ACsymbols, !ACinstruction, !ACascii\ 
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PATMOD 16-Sep-1984 00:34:55  VAX=11 Bliss-32_V4.0-742 Page 24 P 
v04=000 137308-1 384 99:33:23 DISKSVMSMASTER: CPATCH. SRCJPATMOD.B32; 1" 18) \ 
52 FO AG 3 0028 MOVAB CS_WORD, R2 ; : 
51 ; p 002C MOVL Res R1 : ; 
04 1 F 2$: CMPB RS, 4 : ; 
07 12 2 BNEQ 3$ : ; 
52 FB AG 3 4 MOVAB CS_LONGWORD, R2 : : 
2¢ D 9 8 MOVL Re R1 : ; 
DD B 3$ PUSHL : ; 
51 01 CF 030 MNEGL #1, R1 : | : 
08 60 004 CMPB (LEVEL PTR), #8 ; | : 
12 0004 BNEQ 4 : | : 
52 CC AG O9E 0004 MOVAB CS_OCTAL, R2 : ; 
51 38 p 0049 MOVL R27 R1 : ; 
10 6 4C 4$ CMPB = s (LEVEL_PTR), #16 : ; 
07 12 0004F BNEQ 5$ : ; 
52 DC AG i 9091 MOVAB CS _HEXADECIMAL, R2 : | : 
51 38 D0 00055 MOVL R : | ; 
OA 60 91 00058 5$ CMPB ss (LEVEL_PTR), #10 : : 
07 12 00058 BNEQ 6$ : ; 
52 D4 AS YE 00050 MOVAB CS_DECIMAL, R2 : ; 
51 52 D0 00061 MOVL R2> RI : ; 
51 DD 90064 6$ PUSHL 1 : ; 
05 06 AO E9 0066 BLBC 6(LEVEL_PTR), 7$ : ; 
51 64 9E 0006A MOVAB CS_BOOLEAN_ON, R1 : ; 
04 11 00060 BRB 8$ : ; 
51 04 Ad 9E OO06F 7S: MOVAB (CS_BOOLEAN_OFF, R1 : ; 
51 DD 00073 8$: PUSHL R17 : ; 
05 05 AO €9 00075 BLBC S(LEVEL_PTR), 9$ ; ; 
51 64 9E 00079 MOVAB CS _BOOLEAN_ON, R1 : ; 
04 11 0007¢ BRB 108 : ; 
51 04 AG 9E O007E 9$ MOVAB (CS_BOOLEAN_OFF, R1 : ; 
51 0D 9008 10$ PUSHL RI : ; 
05 04 AO €E9 00084 BLBC 4(LEVEL_PTR), 11$ ; ; 
51 64 9E 00088 MOVAB CS_BOOLEAN_ON, R1 i : 
04 11 00088 BRB 12$ ; 
51 04 AS 9E 0008D 11$: MOVAB CS_BOOLEAN_OFF, R1 ; 
51 DD 00091 12$:  PUSHL 1 ; 
05 03 AO 9 90093 BLBC 3(LEVEL_PTR), 13$ 
51 64 9E 0009 MOVAB CS_BOOLEAN_ON, R1 i 
04 11 OO09A BRB 148 ; 
51 04 A 9E 0009C 138: MOV CS_BOOLEAN_OFF, R1 : 
51 DD OOOAO 14$:  =PUSHL RR” ; 
05 02 AO £9 9002 LBC 2(LEVEL_PTR), 15$ ; 
50 64 9E 000A6 MOVAB (CS BOOLEAN_ON, RO : 
06 11 900A9 BRB 168 ; 
50 04 A& 9E OOOAB 15$:  MOVAB CS_BOOLEAN_OFF, RO ; 
50 DD OOOAF 16$:  PUSHL RO ; 
7F A 9F 00081 PUSHAB P.AAK ; 
000000006 _ EF 08 FB 000B4 CALLS #8, PATSFAO_OUT ; 
04 00088 RET : 1717 
; Routine Size: 188 bytes, Routine Base: _PATSCODE + 0145 


<< 


-1984 00:34:55 VAX-11 Bliss-32 V4.0-742 5 
138 90:33:23 DISKSVMSMASTER: CPATCH.SRCIJPATMOD. B32, ; 9 493 


PSECT SUMMARY 
; Name Bytes Attributes 

: _PATSPLIT 249 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 

3 =PATSCO -_ 513 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 0 NOVEC, *NOWRT, NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /VARIANT:1/LIS=LIS$:PATMOD/OBJ=O0BJ$:PATMOD MSRC$:PATMOD/UPDATE=(ENH$:PATMOD) 


; Size: 513 code + 249 data bytes 
; me: 317. 

; Elapsed Time: 00:53.5 

; 6070 

: Lexemes/CPU-Min: 31974 


; penecy Used: 122 pages 
; Compilation Complete 
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